home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / ARRAYS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  510 b   |  18 lines
  1.                                 (* Chapter 6 - Program 1 *)
  2. program Simple_Arrays;
  3.  
  4. var Count,Index : integer;
  5.     Automobiles : array[1..12] of integer;
  6.  
  7. begin
  8.    for Index := 1 to 12 do
  9.       Automobiles[Index] := Index + 10;
  10.    Writeln('This is the first program with an array');
  11.    Writeln;
  12.    for Index := 1 to 12 do
  13.       Writeln('automobile number',Index:3,' has the value',
  14.                                         Automobiles[Index]:4);
  15.    Writeln;
  16.    Writeln('End of program');
  17. end.
  18.